home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 23 / Amiga Format AFCD23 (Feb 1998, Issue 107).iso / -seriously_amiga- / shareware / sound / mrmpeg / playmain.rexx < prev    next >
OS/2 REXX Batch file  |  1997-12-01  |  2KB  |  55 lines
  1. /* PlayMain.rexx */
  2.  
  3. options results; address MrMPEG
  4.  
  5. MUIA_List_Active    = 0x8042391c;    MUIA_Disabled        = 0x80423661
  6.  
  7. list ID SLIST ATTRS MUIA_List_Active
  8. list ID SLIST POS result
  9. if result ~= '' then do
  10.   parse var result filename','dummy','dummy2
  11.   call GetInfo()
  12.   image ID RWND ATTRS MUIA_Disabled 1
  13.   image ID FFWD ATTRS MUIA_Disabled 1
  14.   slider ID PROG ATTRS MUIA_Disabled 1
  15.   slider ID PRIO ATTRS MUIA_Disabled 1
  16.   cycle ID DIVS
  17.   if result = '1:1' then division = '-d1'
  18.   else if result = '1:2' then division = '-d2'
  19.   else division = '-d4'
  20.   cycle ID QUAL
  21.   if result = 'Low' then quality = '-q0'
  22.   else if result = 'Medium' then quality = '-q1'
  23.   else quality = '-q2'
  24.   knob ID VOLM; volume = '-v'result
  25.   check ID MONO; stat = result
  26.   if stat = 0 then stereo = '-m'
  27.   else stereo = ''
  28.   check ID FILT; filter = '-f'result
  29.   slider ID PRIO; priority = '-p'result
  30.   cycle ID MAXF
  31.   if result = 'OFF' then maxf = ''
  32.   else maxf = '-F'result
  33.   cycle ID MIXF
  34.   if result = 'OFF' then mixf = ''
  35.   else mixf = '-x'result
  36.   popasl ID PATH; pathname = result
  37.   setvar current_song filename
  38.   cycle ID ABUF; abuffer = '-t'result * 1000
  39.   cycle ID IBUF; ibuffer = '-b'result
  40.   slider ID PROG; position = result * 1000
  41.   setvar current_time right(result % 60, 2, 0)":"right(result // 60, 2, 0)
  42.   address command 'run <>NIL: rx Timer.rexx'
  43.   check ID PLAY ATTRS MUIA_Disabled 0
  44.   address command pathname'MPEGA >NIL: -n -w -S' position division quality stereo volume filter mixf maxf priority filename abuffer ibuffer
  45.   image ID RWND ATTRS MUIA_Disabled 0
  46.   image ID FFWD ATTRS MUIA_Disabled 0
  47.   slider ID PROG ATTRS MUIA_Disabled 0
  48.   slider ID PRIO ATTRS MUIA_Disabled 0
  49. end /* of if result */
  50. else do
  51.   call Stop()
  52.   check ID PLAY ATTRS MUIA_Disabled 0
  53. end
  54. return
  55.